﻿Imports System
Imports System.Collections

Public Class GrupoUsuariosBE
#Region "Campos y Propiedades"
    Private _IdGrupo As Integer
    Private _FechaCreacion As DateTime
    Private _IdUsuario As Integer

    Public Property IdGrupo() As Integer
        Get
            Return _IdGrupo
        End Get
        Set(ByVal value As Integer)
            _IdGrupo = value
        End Set
    End Property

    Public Property FechaCreacion() As DateTime
        Get
            Return _FechaCreacion
        End Get
        Set(ByVal value As DateTime)
            _FechaCreacion = value
        End Set
    End Property

    Public Property IdUsuario() As Integer
        Get
            Return _IdUsuario
        End Get
        Set(ByVal value As Integer)
            _IdUsuario = value
        End Set
    End Property


#End Region

#Region "Constructores"

    Public Sub New()

    End Sub

    Public Sub New(ByVal IdGrupo As Integer, ByVal FechaCreacion As DateTime, ByVal IdUsuario As Integer)
        Me._IdGrupo = IdGrupo
        Me._FechaCreacion = FechaCreacion
        Me._IdUsuario = IdUsuario
    End Sub
#End Region
End Class

Public Class GrupoUsuariosBECollection
    Inherits CollectionBase

    Default Public Property Item(ByVal index As Integer) As GrupoUsuariosBE
        Get
            Return CType(List(index), GrupoUsuariosBE)
        End Get
        Set(ByVal value As GrupoUsuariosBE)
            List(index) = value
        End Set
    End Property

    Public Function Add(ByVal value As GrupoUsuariosBE) As Integer
        Return (List.Add(value))
    End Function

    Public Function IndexOf(ByVal value As GrupoUsuariosBE) As Integer
        Return (List.IndexOf(value))
    End Function

    Public Sub Insert(ByVal index As Integer, ByVal value As GrupoUsuariosBE)
        List.Insert(index, value)
    End Sub

    Public Sub Remove(ByVal value As GrupoUsuariosBE)
        List.Remove(value)
    End Sub

    Public Function Contains(ByVal value As GrupoUsuariosBE) As Boolean
        Return (List.Contains(value))
    End Function
End Class


